unit tb_Area;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseTreeForm, StdCtrls, ComCtrls, ExtCtrls, DB, ADODB, Buttons,
  Menus, ImgList, ToolWin, cxGraphics, cxLookAndFeels,
  cxLookAndFeelPainters, cxButtons, cxControls, cxContainer, cxEdit,
  dxSkinsCore, dxSkinsDefaultPainters, cxMaskEdit, cxDropDownEdit,
  cxTextEdit, DataModule;

type
  TFrmtd_Area = class(TfrmBaseTreeForm)
    Qry_td_Area: TADOQuery;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmtd_Area: TFrmtd_Area;

implementation


{$R *.dfm}

procedure TFrmtd_Area.FormCreate(Sender: TObject);
begin
  TreeView   := self.tvBase;
  TableName  := 'td_Area';
  ADODataSet := Qry_td_Area;
  inherited;
  LoadTree(TreeView, nil, TableName, 0, true);
end;

end.
